home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 002 / bluebery.arc / HEXSAY.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-06-29  |  2.3 KB  |  60 lines
  1. 5  CLS:KEY OFF:SCREEN 0,0,0:WIDTH 80:CLEAR:FOR I=1 TO 10:KEY I,"":NEXT:KEY 2,"GOTO 60"+CHR$(13):KEY 10,"RUN"+CHR$(34)+"BLUEMENU"+CHR$(34)+CHR$(13):LIST 10-57
  2. 10  '***************** HEX TO DEC/DEC TO HEX CONVERTER *************************
  3. 15  'KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE
  4. 17  'OPEN                    CONVERT HEX TO DEC & VICE VERSA                      OPEN
  5. 19  'OPEN                                                                         OPEN
  6. 21  'OPEN    This simple program can be used effectively to convert hexadecimal   OPEN
  7. 23  'OPEN numbers to decimal and decimal to hexadecimal. This is of value when    OPEN
  8. 25  'OPEN working with some poke-peek values or converting some CHR$(&Hnn) to     OPEN
  9. 27  'OPEN decimal values, such as when zapping disk sectors.                      OPEN
  10. 29  'OPEN                                                                         OPEN
  11. 31  'OPEN    At the prompt, enter the decimal number as "20" w/o quotes and the   OPEN
  12. 33  'OPEN HEX$ value will be displayed.  Enter a HEX number as "&H234" also w/o   OPEN
  13. 35  'OPEN quotes and both the decimal and HEX$ will be displayed.                 OPEN
  14. 37  'OPEN                                                                         OPEN
  15. 39  'OPEN    This program is based on the program in the IBM (c) BASIC MANUAL     OPEN
  16. 41  'OPEN under HEX$.  (c) G I N A C O   - 1983                 Ver 5.1/160/320   OPEN
  17. 43  'SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD
  18. 55  '        *****  < F2 > to RUN  *******  < F10 > For BLUEMENU  *****
  19. 57  ' ====== To avoid DOCUMENTATION BOX each time, REM or DELETE  line 5 ======
  20. 60  CLEAR:FOR I=1 TO 10:KEY I,"":NEXT
  21. 100  CLS
  22. 110  SCREEN 0,0,0
  23. 120  WIDTH 80
  24. 130  COLOR 7,0
  25. 140  KEY OFF
  26. 150  LOCATE 2,4
  27. 160  PRINT "KEY"
  28. 170  LOCATE 2,5
  29. 180  PRINT STRING$(71,"THEN")
  30. 190  LOCATE 2,76
  31. 200  PRINT "CLOSE";
  32. 210  FOR I! = 3 TO 22
  33. 220    LOCATE I!,4
  34. 230    PRINT "OPEN"
  35. 240    LOCATE I!,76
  36. 250    PRINT "OPEN"
  37. 260  NEXT
  38. 270  LOCATE 23,4
  39. 280  PRINT "SCREEN"
  40. 290  LOCATE 23,5
  41. 300  PRINT STRING$(71,"THEN")
  42. 310  LOCATE 23,76
  43. 320  PRINT "LOAD";
  44. 330  FOR I! = 3 TO 19 STEP 2
  45. 340    LOCATE 3,8,0,0,7
  46. 350    PRINT SPC( 50)
  47. 360    LOCATE 3,25
  48. 370    INPUT "DEC # OR &HXXX #  ";X!
  49. 380    A$ = HEX$(X!)
  50. 390    LOCATE I! + 2,24
  51. 400    PRINT X!"DECIMAL IS "A$"  HEX "
  52. 410  NEXT
  53. 420  FOR I! = 3 TO 22
  54. 430    LOCATE I!,10
  55. 440    PRINT SPC( 60)
  56. 450  NEXT
  57. 460  GOTO 330
  58. 65000  REM************************** SAVE ROUTINE *****************************
  59. 65100  SAVE "B:HEXSAY.BAS"
  60.